home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 September & October / rerun-1987-09-10a.d64 / talking data st. (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  361b  |  18 lines
  1. 60000 readn:ifn<0then:(NULL) 35:end
  2. 60010 forx=1to400:next:data -1
  3. 60020 k$=right$(str$(n+1000),3)
  4. 60030 j$=mid$(k$,1,3)
  5. 60040 ifval(j$)=0then:(NULL) 0:goto60000
  6. 60050 j$=mid$(k$,1,1)
  7. 60060 if val(j$)=0 then 60080
  8. 60070 n=val(j$):(NULL) n:(NULL) 28
  9. 60080 j$=mid$(k$,2,1)
  10. 60090 if val(j$)=0 then 60140
  11. 60100 j$=mid$(k$,2,2)
  12. 60110 if val(j$)>20 then 60130
  13. 60120 n=val(j$):(NULL) n:goto60000
  14. 60130 j$=mid$(k$,2,1):(NULL) val(j$)+18
  15. 60140 j$=mid$(k$,3,1)
  16. 60150 if val(j$)=0then goto60000
  17. 60160 n=val(j$):(NULL) n:goto 60000
  18.